Subset of Instacart Data
data("instacart")
instacart_subset =
instacart %>%
mutate(mean_hour = mean(order_hour_of_day)) %>%
select(product_name, order_dow, order_hour_of_day, aisle, department, mean_hour) %>%
mutate(
order_dow =
recode_factor(order_dow, "0" = "Monday", "1" = "Tuesday", "2" = "Wednesday", "3" = "Thursday", "4" = "Friday", "5" = "Saturday", "6" = "Sunday"))
Column
Chart A
instacart_subset %>%
filter(
department == "produce"
) %>%
count(product_name) %>%
plot_ly(
x = ~product_name, y = ~n, type = "scatter", mode = "markers")
Column
Chart B
instacart_subset %>%
plot_ly(y = ~department, color = ~order_dow, type = "box", colors = "viridis")